home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Take Two (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.5 KB  |  33 lines
  1. 10 rem *** take two *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=49152
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<252then40
  10. 100 print"the data is ok...":print
  11. 110 print"sys 49152 to activate...":end
  12. 120 data169,160,162,224,160,0,133,252,134,254,132,251,2031
  13. 130 data132,253,177,251,145,251,177,253,145,253,230,251,2518
  14. 140 data230,253,208,242,230,252,230,254,208,236,169,76,2588
  15. 150 data162,100,160,192,141,68,229,142,69,229,140,70,1702
  16. 160 data229,169,76,162,109,160,192,141,234,232,142,235,2081
  17. 170 data232,140,236,232,169,76,162,118,160,192,141,129,1987
  18. 180 data233,142,130,233,140,131,233,169,127,162,192,120,2012
  19. 190 data141,143,2,142,144,2,169,47,162,53,133,0,1138
  20. 200 data134,1,88,96,32,191,192,173,136,2,76,71,1192
  21. 210 data229,32,191,192,165,172,72,76,237,232,32,191,1821
  22. 220 data192,165,172,72,76,132,233,173,141,2,201,2,1561
  23. 230 data208,54,165,203,174,246,192,141,246,192,228,203,2252
  24. 240 data240,42,201,3,208,38,169,194,162,4,160,0,1421
  25. 250 data32,218,192,169,198,162,216,32,218,192,162,25,1816
  26. 260 data189,247,192,149,217,202,16,248,232,134,199,134,2159
  27. 270 data207,134,212,134,216,32,102,229,76,72,235,169,1818
  28. 280 data4,162,194,160,0,32,218,192,169,216,162,198,1707
  29. 290 data32,218,192,162,25,181,217,157,247,192,202,16,1841
  30. 300 data248,96,133,252,134,254,132,251,132,253,162,3,2050
  31. 310 data177,251,145,253,230,251,230,253,208,246,230,252,2726
  32. 320 data230,254,202,16,239,96,65,46,72,46,83,46,1395
  33.